home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19981211-19990422 / 000121_news@watsun.cc.columbia.edu _Fri Jan 15 12:45:31 1999.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Return-Path: <news@watsun.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.59.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id MAA25115
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Fri, 15 Jan 1999 12:45:30 -0500 (EST)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id MAA27879
  7.     for kermit.misc@watsun.cc.columbia.edu; Fri, 15 Jan 1999 12:25:09 -0500 (EST)
  8. X-Authentication-Warning: newsmaster.cc.columbia.edu: news set sender to <news> using -f
  9. From: "Baus" <baus@wolfenet.com>
  10. Subject: Problem with a script
  11. Date: Fri, 15 Jan 1999 09:18:25 -0800
  12. Organization: Baus & Associates
  13. Message-ID: <77nt11$s9h$1@sparky.wolfe.net>
  14. To: kermit.misc@mailrelay2.cc.columbia.edu
  15.  
  16. I am attempting to run the following script, blatanly stolen from my Using
  17. MS-DOS book for 3.11 although I am probably actually using 2.32.  I think
  18. because of memory issues.  The problem is in the initial attempt to connect,
  19. seconds after the receiving PC answers, the PC running the script thinks it
  20. failed and goes to the redial loop.  It does connect on the first redial
  21. attemp.
  22.  
  23. Any thoughts?
  24. Steve
  25.  
  26. set port 2
  27. set speed 9600
  28. set input timeout proceed
  29. output ATZ\13
  30. input 2 OK
  31. if fail goto mstop
  32. set count 5
  33. set input echo on
  34. pause 3
  35. goto dial
  36. :REDIAL
  37. echo redialing...
  38. :DIAL
  39. output ATDT9230822\13
  40. pause 10
  41. input 45 \10
  42. input 5 \10
  43. if success goto gotmsg
  44. hangup
  45. goto again
  46. :GOTMSG
  47. reinput 2 CONNECT
  48. if success goto transfile
  49. hangup
  50. pause 10
  51. :AGAIN
  52. if count goto redial
  53. goto mstop
  54. :TRANSFILE
  55. GET \dds\2MIDL\transmit\*.*
  56. Get \dds\transmit\*.*
  57. S adjusts.dbf
  58. Get \dds\version.dbf
  59. :mstop
  60. hangup
  61. quit
  62.  
  63.  
  64.